1GR.8:GR.1:SE.2,3,2:SE.0,0,14:DIMC(1),D(1),E(1),F(1),G(1),H(1),J(1):K=PEEK(106)-16:POKE54279,K:L=256*K:POKE559,62
2POKE53277,3:POKE53260,15:POKE704,116:POKE705,68:H(0)=2:H(1)=-2:J(0)=15:J(1)=-15:POKE752,1:M=53248:N=768:O=1024:D(0)=20
3D(1)=20:F.I=L+O+D(0)TOL+O+3+D(0):READA,B:POKEI,A:POKEI+256,B:N.I:?"BY VDTONIC":?#6;"GLIDERFIGHT":WH.PEEK(53279)<>6:WE.
4F.P=0TO1:POKEL+N+F(P),0:E(P)=0:N.P:SO.1,100,4,9:PA.30:SO.:CLS#6:?"BLUE:",G(0):?"RED:",G(1):C(0)=200:C(1)=50:P=0
5SO.2,60-H(0)*2,8,2:C(P)=C(P)-H(P):POKEM+P,C(P):POKE53278,1:IFC(0)<26:C(0)=222:C(1)=26:POS.RAND(16)+2,RAND(20):?#6;"*"
6ENDIF:Q=L+O+P*256+D(P):IFSTICK(P)=13ANDD(P)<180:-MO.Q-3,Q,7:D(P)=D(P)+3:ENDIF:IFSTICK(P)=14ANDD(P)>10:MO.Q,Q-3,7
7D(P)=D(P)-3:ENDIF:IFSTRIG(P)=0ANDE(P)=0:E(P)=C(P):F(P)=D(P):ENDIF:R=L+N+F(P):IFE(P)>26ANDE(P)<222
8E(P)=E(P)-(H(P)+J(P)):POKER,3+P*9:POKEM+4+P,E(P):ELSE:POKER,0:E(P)=0:ENDIF:IFPEEK(M+4+P)<>0ORPEEK(M+9-P)<>0:P=P-1
9G(ABS(P))=G(ABS(P))+1:H(1)=H(1)-0.25:H(0)=ABS(H(1)):G.4:ENDIF:IFPEEK(M+12)<>0:G.4:ENDIF:IFP=0:P=1:ELSE:P=0:ENDIF
10IFG(0)+G(1)<16:G.5:ELSE:?#6;"BLUE:",G(0):?#6;"RED:",G(1):PA.300:RUN:ENDIF:D.3,192,30,120,103,230,254,127